home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1991
/
number6
/
windproc.src
< prev
Wrap
Text File
|
1991-11-11
|
437b
|
19 lines
{ Listing 2: An object-oriented window procedure }
function Window.WindowProc(Message, Wrd : Word;
Lng: Longint) : Longint;
var
Msg: WMsg;
Handler: pointer;
begin
Msg.WParam := Wrd;
Msg.LParam := Lng;
Handler := Dynamic(TypeOf(Self), Message);
if Handler = Nil
then WindowProc := DefMessage(Message, Msg)
else begin
MsgHandler(Handler)(Msg, Self);
WindowProc := 0;
end;
end;